home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MacQForth 1.0 / asm6502 / demo / demo3.s < prev    next >
Text File  |  1995-03-20  |  620b  |  27 lines
  1. ; Print 20 random numbers from 0..100
  2.    
  3.         
  4. PUSH = $20B2   ; QForth stack equates
  5. POP  = $20CA   
  6. RND2 = $FF92   ; random number off stack
  7. HOUT = $FDDA   ; output A as a hex number
  8. COUT = $FDED   ; output A as a character
  9. COUNT = $03FF  ; count in here
  10.  
  11.  *= $0300
  12.  
  13.  lda #$14      ; setup count
  14.  sta COUNT
  15. LOOP ldy #$64  ; 100 in Y and X
  16.  ldx #$00
  17.  jsr PUSH      ; ( 100 -- )
  18.  jsr RND2      ; ( -- 0..100 )
  19.  jsr POP       ; in Y and X
  20.  tya           ; n' -> A
  21.  jsr HOUT      ; print it
  22.  lda #$0D      ; carriage return
  23.  jsr COUT
  24.  dec COUNT     ; count <- count - 1
  25.  bne LOOP      ; not done
  26.  rts           ; done
  27.